prevod aktualniho casu na sekundy
Otázka od: petr polasek
11. 12. 2002 12:29
mam to napsane takhle:
var
aktual_cas : TTime;
pocet_sekund:dword;
begin
aktual_cas:=time;
a potrebuji tu promenou "pocet_sekund" naplnit temi sekundami,
ale nevim jak. Mohl by me to prosim nekdo dopsat. Diky za pomoc.
Odpovedá: raul@raphael.cz
11. 12. 2002 12:21
Slo by to treba i takhle
pocet_sekund := (hodiny * 3600)+(minuty * 60) + sec;
a mas kolikata sekunda je
On Wed, 11 Dec 2002 11:39:55 +0100 (CET)
petr polasek <dragonz@post.cz> wrote:
> mam to napsane takhle:
> var
> aktual_cas : TTime;
> pocet_sekund:dword;
> begin
> aktual_cas:=time;
>
> a potrebuji tu promenou "pocet_sekund" naplnit temi
> sekundami,
> ale nevim jak. Mohl by me to prosim nekdo dopsat. Diky za
> pomoc.
Odpovedá: ing. Jan Fiala
11. 12. 2002 13:36
Podivej se na funkci DecodeTime()
Ta ti to rozdeli na hodiny, minuty a sekundy. Roznasobit to pak urcite
zvladnes.
--
ing. Jan Fiala
mailto:jan.fiala@iol.cz
11.12.2002 petr polasek:
> mam to napsane takhle:
> var
> aktual_cas : TTime;
> pocet_sekund:dword;
> begin
> aktual_cas:=time;
> a potrebuji tu promenou "pocet_sekund" naplnit temi sekundami,
> ale nevim jak. Mohl by me to prosim nekdo dopsat. Diky za pomoc.
Odpovedá: Lstiburek Pavel
11. 12. 2002 13:34
TDateTime == float
1.0 = den = 24 hodin
1 hodina = 60 minut
1 minuta = 60 sekund
==> DatumCas*24*60*60 sekund
Pavel
-----Original Message-----
From: petr polasek [mailto:dragonz@post.cz]
Sent: Wednesday, December 11, 2002 11:40 AM
To: delphi-l@clexpert.cz
Subject: prevod aktualniho casu na sekundy
mam to napsane takhle:
var
aktual_cas : TTime;
pocet_sekund:dword;
begin
aktual_cas:=time;
a potrebuji tu promenou "pocet_sekund" naplnit temi sekundami,
ale nevim jak. Mohl by me to prosim nekdo dopsat. Diky za pomoc.
Odpovedá: Jaroslav velta
11. 12. 2002 14:29
Skus toto.....
function TForm1.TimeToSec: DWord;
var Hour, Min, Sec, MSec: Word;
begin
DecodeTime(Time,Hour,Min,Sec,MSec);
Result := Hour * 3600 + Min * 60 + Sec;
end;
Jaroslav velta
Programátor
CÍGLER SOFTWARE Slovakia, a.s.
Sliačska 10, 831 02 Bratislava, SK
-----------------Original-------------------
mam to napsane takhle:
var
aktual_cas : TTime;
pocet_sekund:dword;
begin
aktual_cas:=time;
a potrebuji tu promenou "pocet_sekund" naplnit temi
sekundami,
ale nevim jak. Mohl by me to prosim nekdo dopsat. Diky za pomoc.
---
Odchádzajúca správa neobsahuje vírusy.
Skontrolované antivírusovým systémom AVG (http://www.grisoft.cz).
Verzia: 6.0.426 / Vírusová databáza: 239 - dátum vydania: 2. 12. 2002